home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / aa_m68k_Only / NXLogo / NXLogoLibrary / rndplacer.lg < prev    next >
Encoding:
Text File  |  1992-07-09  |  295 b   |  10 lines
  1. to rndplacer :t :in :out :rad
  2.  if :t <1 [stop]
  3.  local "left make "left -1*225+:rad
  4.  local "right make "right 225-:rad
  5.  local "up make "up 225-:rad
  6.  local "down make "down -1*225+:rad
  7.  gorandomscreen :left :right :up :down
  8.  run [cngon :in :rad cngon :out :rad]
  9.  rndplacer (:t-1) :in :out :rad
  10. end